﻿<!--#include file="const.inc"-->
<%
'====================================================================
' 感谢使用晴天3G智能建站系统..
' 作者:梁永强.QQ:766750857
' 官方网址:wap.qt3g.com
' 声明:软件版权归作者所有,没有经过作者本人同意不得非法破解和传播本程序
'====================================================================
%>
<%
if sid="Null" then
Response.Redirect "/login.asp?sid=" & sidd & "&url=/diy/wlzj.Asp"
Response.end
end if
bitttt=qingtian.confff("bit")
bittt=conn.execute("select money from [qingtian_user] where sid='"&qingtian.Formatsid(sid)&"'")("money")
on error resume next
Dim fs, f, f1, fc,cs,i,fsod,Filedel
i=0 
randomize
Filepath1=int(rnd*3)
if Filepath1>1 then
Filepath=Server.MapPath("/diy/Upload/")
else
Filepath=Server.MapPath("/diy/temp/")
end if
Set fs = CreateObject("Scripting.FileSystemObject") 
Set f = fs.GetFolder(Filepath)
Set fc = f.Files
For Each f1 in fc
i=i+1
Next
If i>30 Then
Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.GetFolder(Filepath)
Set fc = f.Files
For Each f1 in fc
Filedel=Filepath&"/"&f1.name
set fsod = createobject("scripting.filesystemobject")
If (fsod.fileexists(Filedel)) Then
fsod.deletefile(Filedel)
End If
set fsod = Nothing
i=i+1
Next
End If
Dim backurl,mo2,mob,ii,filename1,cc
filename1="wlzj.asp"	'本文件名
backurl=request("backurl")
backurl=Replace(backurl,"@@","&")
cc=clng(request("cc"))
lx=request("lx")
upfile1=request("upfile1")
upfile2=request("upfile2")
ufpurl=request.form("ufpurl")
bkcolr=request.form("bkcolr")
sjbl=request.form("sjbl")
rota=request.form("rota")
bhafeh=request.form("bhafeh")
bhafei=request.form("bhafei")
bhafezl=request.form("bhafezl")
bhafeb=request.form("bhafeb")
	If bhafeb="" Then bhafeb="0"
bhafed=request.form("bhafed")
	If bhafed="" Then bhafed="0"
bhafea=request.form("bhafea")
	If bhafea="" Then bhafea="0"
bhafec=request.form("bhafec")
	If bhafec="" Then bhafec="0"
bhafev=request.form("bhafev")
	If bhafev="" Or bhafev<="0" Then bhafev="2"
If lx="shenhun" Then
title="征婚证"
ElseIf lx="yixing" Then
title="寻找异性证"
ElseIf lx="tongjiling" Then
title="网络通缉令"
ElseIf lx="liaotian" Then
title="职业聊天证"
ElseIf lx="yingdi" Then
title="奥斯卡影帝证"
ElseIf lx="yelu" Then
title="耶鲁大学游戏博士证"
ElseIf lx="xinli" Then
title="心理咨询证"
ElseIf lx="xingqi" Then
title="行乞证"
ElseIf lx="weihun" Then
title="未婚证"
ElseIf lx="wanglian" Then
title="网恋许可证"
ElseIf lx="tufu" Then
title="屠夫证"
ElseIf lx="tufei" Then
title="土匪资格证"
ElseIf lx="tiancai" Then
title="天才证"
ElseIf lx="shunv" Then
title="淑女证"
ElseIf lx="shuaige" Then
title="超级帅哥证"
ElseIf lx="shoufu" Then
title="世界首富证"
ElseIf lx="shizi" Then
title="国际红十字会会员证"
ElseIf lx="shilian" Then
title="失恋证"
ElseIf lx="shashou" Then
title="杀手证"
ElseIf lx="shaonv" Then
title="少女杀手证"
ElseIf lx="shaonian" Then
title="少年痴呆证"
ElseIf lx="shabi" Then
title="傻逼证"
ElseIf lx="selang" Then
title="色狼证"
ElseIf lx="wudang" Then
title="武当派"
ElseIf lx="shaolin" Then
title="少林派"
ElseIf lx="riyue" Then
title="日月神教"
ElseIf lx="quanzhen" Then
title="全真派"
ElseIf lx="emei" Then
title="娥眉派"
ElseIf lx="gaibang" Then
title="丐帮派"
ElseIf lx="qingnian" Then
title="杰出青年证"
ElseIf lx="qinghua" Then
title="清华大学YY博士证"
ElseIf lx="qianshui" Then
title="潜水证"
ElseIf lx="piaochang" Then
title="嫖娼许可证"
ElseIf lx="paoniu" Then
title="泡妞许可证"
ElseIf lx="niujin" Then
title="牛津大学教授证"
ElseIf lx="mm" Then
title="超级美眉证"
ElseIf lx="mengnv" Then
title="超级猛女证"
ElseIf lx="maiba" Then
title="卡拉OK麦霸证"
ElseIf lx="lvshi" Then
title="律师执业证"
ElseIf lx="lihun" Then
title="离婚证"
ElseIf lx="laopo" Then
title="好老婆证"
ElseIf lx="laogong" Then
title="好老公证"
ElseIf lx="konglong" Then
title="恐龙证"
ElseIf lx="kongbu" Then
title="恐怖份子证"
ElseIf lx="jinwuh" Then
title="劲舞团身份"     '---------------
ElseIf lx="jinwuc" Then     '---------------
title="劲舞团身份"
ElseIf lx="jiehun" Then
title="结婚证"
ElseIf lx="jianqiao" Then     '---------------
title="剑桥大学爱情博士证"
ElseIf lx="jianghu" Then
title="浆糊证"
ElseIf lx="jialidun" Then
title="家里蹲大学毕业证"
ElseIf lx="huyou" Then
title="忽悠证"
ElseIf lx="heping" Then
title="绿色和平组织成员证"
ElseIf lx="heishehui" Then
title="黑社会证"
ElseIf lx="haoshimin" Then
title="好市民证"
ElseIf lx="hafou" Then
title="哈佛大学MBA证"
ElseIf lx="guanshui" Then
title="灌水证"
ElseIf lx="guanggun" Then
title="光棍证"
ElseIf lx="guaiguai" Then
title="乖乖女证"
ElseIf lx="funv" Then
title="良家妇女证"
ElseIf lx="fbi" Then
title="FBI特工证"
ElseIf lx="fachun" Then
title="发春证"
ElseIf lx="dushen" Then
title="赌神证"
ElseIf lx="cuiniu" Then
title="吹牛许可证"
ElseIf lx="chunv" Then
title="处女证"
ElseIf lx="chunan" Then
title="处男证"
ElseIf lx="chiqing" Then
title="痴情证"
ElseIf lx="buyaolian" Then
title="死不要脸证"
ElseIf lx="bianren" Then
title="扁人许可证"
ElseIf lx="beida" Then
title="北大吹牛博士证"
ElseIf lx="007" Then
title="皇家特工007证"
ElseIf lx="shu" Then
title="生肖鼠证"
ElseIf lx="niu" Then
title="生肖牛证"
ElseIf lx="hu" Then
title="生肖虎证"
ElseIf lx="tu" Then
title="生肖兔证"
ElseIf lx="long" Then
title="生肖龙证"
ElseIf lx="she" Then
title="生肖蛇证"
ElseIf lx="ma" Then
title="生肖马证"
ElseIf lx="yang" Then
title="生肖羊证"
ElseIf lx="hou" Then
title="生肖猴证"
ElseIf lx="ji" Then
title="生肖鸡证"
ElseIf lx="gou" Then
title="生肖狗证"
ElseIf lx="zhu" Then
title="生肖猪证"
ElseIf lx="xunrennan" Then
title="寻人启示-男"
ElseIf lx="xunrennv" Then
title="寻人启示-女"
ElseIf lx="niaochao1" Then
title="鸟巢全景"
ElseIf lx="niaochao2" Then
title="鸟巢内部"
ElseIf lx="niaochao3" Then
title="鸟巢夜景"
ElseIf lx="fangpi" Then
title="放屁许可证"
ElseIf lx="mofashi" Then
title="魔法师证"
ElseIf lx="qqxianjin" Then
title="上Q先进证"
ElseIf lx="qzone" Then
title="QQ空间明星"
ElseIf lx="gongzhu" Then
title="公主证"
ElseIf lx="heibang" Then
title="黑帮证"
ElseIf lx="heike" Then
title="黑客证"
ElseIf lx="xiangu" Then
title="何仙姑证"
ElseIf lx="chuwen" Then
title="初吻证"
ElseIf lx="zhenqingzheng" Then
title="真情证"
ElseIf lx="nvhuang" Then
title="女皇证"
ElseIf lx="laojunyi" Then
title="老军医证"
ElseIf lx="biye" Then
title="网络毕业证书"
ElseIf lx="xianxue" Then
title="献血证"
ElseIf lx="qq" Then
title="QQ时尚证"
Else
title="12生肖证，帮派证件，网络搞笑证件制作大全"
End If
select case v
case "0"
we0="<br/>"
hr="-----------<br/>"
%>
<card title="<%=title%>"><p align="<%=qingtian.px%>">
<%
case "1"
zi="<span style=""color:#FF5500"">"
we="<div class=""footer"">"
sou="<div class=""block4"">"
dao="<div class=""navi"">"
we0="</div>"
we1="</div>"
%>
<title><%=title%></title>
</head>
<body>
<!--#include virtual="/css.inc"-->
<%

End Select
%>
<%=qingtian.qingsav("10086")%>
<%
If left(backurl,1)<>"/" Then backurl="/" & backurl
mo2=split(backurl,".")
mob=lcase(mo2(ubound(mo2)))	'字符变小写参数前加
ii="jpg|gif|bmp|jpeg|peg|png|jpge|mid|midi|mmf|amr|img|adp|m4a|mp3|aac|wav|wma|ogg|avi|mp4|3gp|wmv|rm|rmvb|dat|mpg|asf|umd|txt|chm|brm|prc|pdb|mdx|trc|sis|sisx|jar|jad|cab|mpkg|hme|ski|thm|uiq|nth|utz|mtf|sdt|tsk|nec|nes|gba|gb|gbc|gba|fba|md|sfc|smc|lrc|nol|rar|zip|7z|emz|pdf|pdg"
If instr(ii,mob)>0 Then
Response.redirect "http://" & Request.ServerVariables("SCRIPT_NAME") & backurl
Response.End
End If
wlzjurl=Request.ServerVariables("SCRIPT_NAME") 
wlzjurls=Replace(request.ServerVariables("QUERY_STRING"),"&","&amp;")
If len(trim(wlzjurls))=0 Then wlzjurl=wlzjurl & "?sid=" & sidd
If len(trim(wlzjurls))>0 Then wlzjurl=wlzjurl & "?" & wlzjurls
%>
<%
If lx="" Then
Response.Write ""&dao&"--寻人启示--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=xunrennan'>寻男启示</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=xunrennv'>寻女启示</a><br/>"
Response.Write ""&we1&""&dao&"--鸟巢影像--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=niaochao1'>鸟巢外</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=niaochao2'>鸟巢内</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=niaochao3'>鸟巢夜</a><br/>"
Response.Write ""&we1&""&dao&"--综合证件--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=huyou'>忽悠证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=guanshui'>灌水证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=qianshui'>潜水证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=jianghu'>浆糊证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=haoshimin'>好市民</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=shabi'>傻逼证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=xianxue'>献血证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=qq'>时尚证</a><br/>"
Response.Write ""&we1&""&dao&"--女生证件--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=shunv'>淑女证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=konglong'>恐龙证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=chunv'>处女证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=guaiguai'>乖乖女</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=laopo'>好老婆</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=mengnv'>猛女证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=mm'>美眉证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=shaonv'>女杀手</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=funv'>妇女证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=gongzhu'>公主证</a><br/>"
Response.Write ""&we1&""&dao&"--男生证件--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=chunan'>处男证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=selang'>色狼证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=guanggun'>光棍证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=paoniu'>泡妞证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=laogong'>好老公</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=shaonv'>杀手证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=piaochang'>嫖娼证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=shuaige'>帅哥证</a><br/>"
Response.Write ""&we1&""&dao&"--爱情证件--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=jiehun'>结婚证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=weihun'>未婚证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=zhenghun'>征婚证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=lihun'>离婚证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=chiqing'>痴情证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=fachun'>发春证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=shilian'>失恋证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=wanglian'>网恋证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=yixing'>找异性</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=chuwen'>初吻证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=zhenqingzheng'>真情证</a><br/>"
Response.Write ""&we1&""&dao&"--荣誉证类--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=dushen'>赌神证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=yingdi'>影帝证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=tiancai'>天才证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=mofashi'>魔法师</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=maiba'>麦霸证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=yingdi'>影帝证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=qingnian'>好青年</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=qzone'>扣空间</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=qqxianjin'>扣扣证</a><br/>"
Response.Write ""&we1&""&dao&"--生活证件--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=shaonian'>痴呆证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=fangpi'>放屁证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=buyaolian'>不要脸</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=konglong'>恐龙证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=tiancai'>天才证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=xingqi'>行乞证</a><br/>"
Response.Write ""&we1&""&dao&"--社会证件--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=tongjiling'>通缉令</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=liaotian'>聊天证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=heishehui'>黑社会</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=cuiniu'>吹牛证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=bianren'>扁人证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=shoufu'>首富证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=heike'>黑客证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=heibang'>黑帮证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=xiangu'>仙姑证</a><br/>"
Response.Write ""&we1&""&dao&"--执业证件--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=tufu'>屠夫证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=xingqi'>行乞证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=shashou'>杀手证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=tufei'>土匪证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=lvshi'>律师证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=xinli'>心理师</a><br/>"
Response.Write ""&we1&""&dao&"--国际组织--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=007'>特工证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=shashou'>杀手证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=fbi'>FBI证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=kongbu'>恐怖证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=shizi'>红十字</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=heping'>和平证</a><br/>"
Response.Write ""&we1&""&dao&"--武林证件--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=shaolin'>少林派</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=wudang'>武当派</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=gaibang'>丐帮证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=emei'>峨嵋派</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=quanzhen'>全真派</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=riyue'>日月教</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=nvhuang'>女皇证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=laojunyi'>老军医</a><br/>"
Response.Write ""&we1&""&dao&"--学历证件--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=qinghua'>清华证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=beida'>北大证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=niujin'>牛大证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=jianqiao'>剑大证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=yelu'>耶鲁证</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=hafou'>哈佛证</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=jialidun'>家里蹲大学</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=biye'>网络毕业</a><br/>"
Response.Write ""&we1&""&dao&"--12生肖证件--"&we0&""&we&""
Response.Write "<a href='" & wlzjurl & "&amp;lx=shu'>子鼠</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=niu'>丑牛</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=hu'>寅虎</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=tu'>卯兔</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=long'>辰龙</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=she'>巳蛇</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=ma'>戊马</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=yang'>未羊</a><br/>"
Response.Write "<a href='" & wlzjurl & "&amp;lx=hou'>申猴</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=ji'>酉鸡</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=gou'>戌狗</a>,"
Response.Write "<a href='" & wlzjurl & "&amp;lx=zhu'>亥猪</a>"&we0&""

Else
%>
<%
Response.Write we
If request("upfile2")<>"" Then
	set fso = server.createobject("scripting.filesystemobject")
	If fso.fileexists(server.mappath(upfile2)) = False Then
	Response.Write "打开头像失败,请检查图片是否上传成功！<br/>"
	Response.Write "<a href='addup.asp?sid=" & sidd & "&amp;urlup=" & Request.ServerVariables("SCRIPT_NAME") & "?sid=" & sidd & "!lx=" & lx & "'>重新上传头像</a><br/>"
	Response.End()
	End If
	set L=server.createobject("Persits.Jpeg")
	LPath = server.mappath(upfile2)
	L.Open LPath
	L.WidtH = 65
	L.Height = 75
		L.save server.mappath(upfile2)
		L.Close
		set L=Nothing
End If
	If lx="jiehun" Or lx="lihun" Then
	If request("upfile1")<>"" and request("upfile2")<>"" Then
Response.Write "老公、老婆头像上传成功！<br/>老婆缩略图为:<br/><img src='" & upfile2 & "' alt='缩略图'/><br/>"
Response.Write "<a href='" & filename1 & "?sid=" & sidd & "&amp;upfile1=" & upfile2 & "'>此图做其它类型</a><br/>"
Response.Write "<a href='" & upfile2 & "'>下载头像</a><br/>"
	ElseIf request("upfile1")<>"" Then
Response.Write "老公头像上传成功！<br/><a href='addup.asp?sid=" & sidd & "&amp;urlup=" & Replace(Request.Servervariables("Http_Url"),"&","!") & "'>我要上传头像</a>(老婆)<br/>"
	End If 
	End If
If request("upfile1")<>"" Then
	set fso = server.createobject("scripting.filesystemobject")
	If fso.fileexists(server.mappath(upfile1)) = False Then
	Response.Write "打开头像失败,请检查图片是否上传成功！<br/>"
Response.Write "<a href='addup.asp?sid=" & sidd & "&amp;urlup=" & Request.ServerVariables("SCRIPT_NAME") & "?sid=" & sidd & "!lx=" & lx & "'>重新上传头像</a><br/>"
	Response.End()
	End If
	set L=server.createobject("Persits.Jpeg")
	LPath = server.mappath(upfile1)
	L.Open LPath
If lx="heping" Then
	L.WidtH = 63
	L.Height = 72
ElseIf lx="jialidun" Then
	L.WidtH = 70
	L.Height = 80
ElseIf lx="jiehun" Then
	L.WidtH = 65
	L.Height = 75
ElseIf lx="lihun" Then
	L.WidtH = 62
	L.Height = 73
ElseIf lx="jinwuc" Then
ElseIf lx="jinwuh" Then
ElseIf lx="riyue" Or lx="gaibang" Or lx="wudang" Or lx="emei" Or lx="quanzhen" Then
	L.WidtH = 70
	L.Height = 82
ElseIf lx="xiangu" Or lx="xianxue" Or lx="heike" Or lx="chuwen" Then
	L.WidtH = 74
	L.Height = 88
Else
'----------------------------------
	L.WidtH = 70
	L.Height = 82
End If
		L.save server.mappath(upfile1)
		L.Close
		set L=Nothing
End If
If request("upfile1")<>"" and (lx="jiehun" Or lx="lihun") Then
Response.Write "老公缩略图为:<br/><img src='" & upfile1 & "' alt='缩略图'/><br/>"
Response.Write "<a href='" & filename1 & "?sid=" & sidd & "&amp;upfile1=" & upfile1 & "'>此图做其它类型</a><br/>"
Response.Write "<a href='" & upfile1 & "'>下载头像</a>,<a href='addup.asp?sid=" & sidd & "&amp;urlup=" & Request.ServerVariables("SCRIPT_NAME") & "?sid=" & sidd & "!lx=" & lx & "'>重新上传</a><br/>"
ElseIf request("upfile1")<>"" and (lx<>"jiehun" Or lx<>"lihun") Then
Response.Write "头像上传成功！<br/>缩略图为:<br/><img src='" & upfile1 & "' alt='缩略图'/><br/>"
Response.Write "<a href='" & filename1 & "?sid=" & sidd & "&amp;upfile1=" & upfile1 & "'>此图做其它类型</a><br/>"
Response.Write "<a href='" & upfile1 & "'>下载头像</a>,<a href='addup.asp?sid=" & sidd & "&amp;urlup=" & Request.ServerVariables("SCRIPT_NAME") & "?sid=" & sidd & "!lx=" & lx & "'>重新上传</a><br/>"
ElseIf lx="jiehun" Or lx="lihun" Then
Response.Write "<a href='addup.asp?sid=" & sidd & "&amp;urlup=" & Replace(Request.Servervariables("Http_Url"),"&","!") & "'>我要上传头像</a>(老公)<br/>"
Else
Response.Write "<a href='addup.asp?sid=" & sidd & "&amp;urlup=" & Replace(Request.Servervariables("Http_Url"),"&","!") & "'>我要上传头像</a><br/>"
End If

If Request("username")<>"" Then
username=Request("username")
username1=Request("username1")
username2=Request("username2")
username3=Request("username3")
'----------------------------------
'显示网址
site=request.form("site")
If site="" Then site="晴天3G建站-wap.qt3g.com"
'----------------------------------
If isnumeric(application("num")) Then
	application("num")=clng(application("num"))
	num=7-len(application("num"))
	application("num")=application("num")+1
	for i=1 to num
		application("num")="0" & application("num")
	Next
Else
	application("num")="0000001"
End If
num=application("num")
If request("upfile1")<>"" Then
	ufp=request("upfile1")
End If
username=Trim(Left(request.form("username"),4))
sex=request.form("sex")
age=request.form("age")
	If age="" Then age=18
ufp2=request("upfile2")
username2=Trim(Left(request.form("username2"),4))
sex2=request.form("sex2")
age2=request.form("age2")
	If age2="" Then age2=18
		If isnumeric(age) = False Then
		Response.Write "出现错误！年龄应该是数字才对！！<br/>"
		ElseIf isnumeric(age2) = False Then
		Response.Write "出现错误！年龄应该是数字才对！！<br/>"
		Else

set fso = server.createobject("scripting.filesystemobject")
	If fso.fileexists(server.mappath("image\" & lx & ".jpg")) = False Then
	Response.Write "证件图片打开失败,请检查选择的类型是否正确！<br/>"
	If instr(Curl,Request.ServerVariables("Server_NAME"))>0 Then
	Response.Write "<a href='" & filename1 & "?sid=" & sidd & "'>重新选择证件类型</a><br/>"
	Else
	Response.Write "<a href='" & filename1 & "?sid=" & sidd & "&amp;Curl=" & Curl & "'>重新选择证件类型</a><br/>"
	End If
	Response.End()
	End If
Set Jpeg = Server.CreateObject("Persits.Jpeg") 
PhotoPath = Server.MapPath("image") & "\" & lx & ".jpg" 
Jpeg.Open PhotoPath
If request("upfile1")<>"" Then
Set Logo = Server.CreateObject("Persits.Jpeg") 
LogoPath = Server.MapPath(ufp)
Logo.Open LogoPath 
'----------------------------------
If lx="heping" Then
	Logo.WidtH = 63
	Logo.Height = 72
	Jpeg.DrawImage 197, 209, Logo
ElseIf lx="jialidun" Then
	Logo.WidtH = 70
	Logo.Height = 80
	Jpeg.DrawImage 74, 127, Logo
ElseIf lx="jiehun" Then
	Logo.WidtH = 65
	Logo.Height = 75
	Jpeg.DrawImage 276, 107, Logo
ElseIf lx="lihun" Then
	Logo.WidtH = 62
	Logo.Height = 73
	Jpeg.DrawImage 54, 90, Logo
ElseIf lx="jinwuc" Then
ElseIf lx="jinwuh" Then
ElseIf lx="riyue" Or lx="gaibang" Or lx="wudang" Or lx="emei" Or lx="quanzhen" Or lx="shaolin" Then
	Logo.WidtH = 70
	Logo.Height = 82
	Jpeg.DrawImage 285, 42, Logo
ElseIf lx="niaochao1" Or lx="niaochao2" Or lx="niaochao3" Then
	Logo.WidtH = 74
	Logo.Height = 90
	Jpeg.DrawImage 363, 19, Logo
ElseIf lx="xunrennan" Or lx="xunrennv" Then
	Logo.WidtH = 74
	Logo.Height = 90
	Jpeg.DrawImage 186, 105, Logo
ElseIf lx="shu" Or lx="niu" Or lx="hu" Or lx="tu" Or lx="long" Or lx="she" Or lx="ma" Or lx="yang" Or lx="hou" Or lx="ji" Or lx="gou" Or lx="zhu" Then
	Logo.WidtH = 71
	Logo.Height = 83
	Jpeg.DrawImage 397, 30, Logo
ElseIf lx="xiangu" Or lx="xianxue" Or lx="heike" Or lx="chuwen" Then
	Logo.WidtH = 74
	Logo.Height = 88
	Jpeg.DrawImage 389, 36, Logo
ElseIf lx="fbi" Then
	Logo.WidtH = 55
	Logo.Height = 64
	Jpeg.DrawImage 215, 49, Logo
ElseIf lx="007" Then
	Logo.WidtH = 69
	Logo.Height = 81
	Jpeg.DrawImage 41, 143, Logo
Else
'----------------------------------
	Logo.WidtH = 70
	Logo.Height = 82
	Jpeg.DrawImage 389, 36, Logo
End If
If request("upfile2")<>"" Then
	LogoPath = Server.MapPath(ufp2)
	Logo.Open LogoPath 
	Logo.WidtH = 65
	Logo.Height = 75

	If lx="jiehun" Then 
	Jpeg.DrawImage 344, 107, Logo
	Else
	Jpeg.DrawImage 258, 90, Logo
	End If
End If
'----------------------------------
'删除上传图片
set fso=server.CreateObject("scripting.filesystemobject")
filepath=server.MapPath(ufp)
If fso.fileexists(filepath) Then
	'fso.deletefile(filepath)
End If
set fso=Nothing
'----------------------------------
End If
%><!--#include file="wlzj.inc"--><%
ufp="Upload/qt3g.com_" & month(date) & day(date) & RndCode() & hour(now) & minute(now) & "_" & lx
Jpeg.Save Server.MapPath(ufp & ".jpg")		'保存图片
Jpeg.Close
set Jpeg=Nothing
set j1=Server.CreateObject("Persits.Jpeg")
		j1.open server.mappath(ufp & ".jpg")
		j1.WidtH = j1.OriginalWidtH
		j1.Height = j1.OriginalHeight
		j1.save server.mappath(ufp & ".jpg")
		j1.Close
		set j1=Nothing
		Set filetest=server.CreateObject("Scripting.FileSystemObject")
		filesize=filetest.GetFile(server.MapPath(ufp & ".jpg")).size	'读出文件大小
	If request.form("ufpurl")<>"" Then
	kHeight=request.form("kHeight")
	If kHeight="" Then kHeight="240"
	kWidtH=request.form("kWidtH")
	If kWidtH="" Then kWidtH="320"
	set j2=server.createobject("Persits.Jpeg")
	j2.open server.mappath(ufpurl)
	randomize
	ranNums=int(90000*rnd)+10000
	ufpname="qt3g.com_" & ranNums & RndCode() & hour(now) & minute(now) & "_" & lx
	'ufpname="qt3g.com_" & month(date) & day(date) & ranNums & RndCode() & hour(now) & minute(now) & "_" & lx
	J2.Crop bhafea, bhafeb, J2.WidtH - bhafec, J2.Height - bhafed		'切割处理
	If sjbl="0" Then		'缩减比例
		J2.WidtH = kWidtH
		J2.Height = kHeight
	ElseIf sjbl>"0" Then
		J2.WidtH = J2.OriginalWidtH / sjbl
		J2.Height=J2.OriginalHeight / sjbl
	End If
	If bkcolr<>"abcdef" Then	'边框处理
		J2.Canvas.Pen.Color = "&H" & bkcolr & ""	'black 颜色
		J2.Canvas.Pen.WidtH = bhafev '画笔宽度
		J2.Canvas.Brush.Solid = False '是否加粗处理
		J2.Canvas.Bar 1, 1, J2.WidtH, J2.Height
	End If
	If bhafeh="2" Then
	J2.Sharpen 1, bhafei	'设定锐化效果
	End If
	If rota="b" Then
		J2.FlipH	'左右翻转
	ElseIf rota="c" Then
		J2.FlipV	'上下翻转
	ElseIf rota="d" Then
		J2.RotateL	'向左旋转90度
	ElseIf rota="e" Then
		J2.RotateR	'向右旋转90度
	End If
	J2.Quality = bhafezl	'图片质量
	J2.Save Server.MapPath("Temp/" & ufpname & ".jpg")	'保存图片
	J2.Close
	set J2=Nothing
	filesize1=filetest.GetFile(server.MapPath("Temp/" & ufpname & ".jpg")).size	'读出文件大小
	Response.Write "<img src='Temp/" & ufpname & ".jpg' alt='哈~编辑成功啦！qt3g.com'/><br/>"
	Response.Write "<a href='Temp/" & ufpname & ".jpg'>免费下载(" & FormatNumber(filesize1/1024,0) & "KB)</a><br/>"
	'Response.redirect "Temp/" & ufpname & ".jpg"	'下载图片转向
	'Response.End
		End If
	If len(ufpurl)<1 Then
Response.Write "哈~OK啦！<br/>"
Response.Write "<img src='" & ufp & ".jpg' alt='哈~OK啦！qt3g.com'/><br/>"
Response.Write "<a href='" & ufp & ".jpg'>免费下载(" & FormatNumber(filesize/1024,0) & "KB)</a><br/>"
call Dt_All(useid,"用“"& username & username2 &"”制作了搞笑证件，(url=" & ufp & ".jpg)点击查看(/url)")
	End If
Response.Write "=图片切割=<br/>"
if v=1 then Response.Write "<form action='" & Replace(Request.Servervariables("Http_Url"),"&","&amp;") & "' method='post'>"
Response.Write "上剪掉<input format='*N' name='bhafeb' value='0' size='5'/><br/>"
Response.Write "下剪掉<input format='*N' name='bhafed' value='0' size='5'/><br/>"
Response.Write "左剪掉<input format='*N' name='bhafea' value='0' size='5'/><br/>"
Response.Write "右剪掉<input format='*N' name='bhafec' value='0' size='5'/><br/>"
Response.Write "=尺寸缩放=<br/>"
Response.Write "图高度:<input name='kHeight' maxlength='4' size='10' value='240'/><br/>"
Response.Write "图宽度:<input name='kWidtH' maxlength='4' size='10' value='320'/><br/>"
Response.Write "=选择比例缩减=<br/>"
Response.Write "<select name='sjbl' value='0'>"
Response.Write "<option value='0'>按以上尺寸</option>"
Response.Write "<option value='1'>原始图片大小</option>"
Response.Write "<option value='1.25'>原图的1/1.25</option>"
Response.Write "<option value='1.5'>原图的1/1.5</option>"
Response.Write "<option value='1.75'>原图的1/1.75</option>"
Response.Write "<option value='2'>原图的1/2</option>"
Response.Write "<option value='3'>原图的1/3</option>"
Response.Write "</select><br/>"
Response.Write "=加入边框=<br/>"
Response.Write "边框色<select name='bkcolr' value='abcdef'>"
Response.Write "<option value='abcdef'>不要边框</option>"
Response.Write "<option value='FFD700'>金色</option>"
Response.Write "<option value='4B0082'>靛青</option>"
Response.Write "<option value='00FF00'>酸橙</option>"
Response.Write "<option value='800000'>粟色</option>"
Response.Write "<option value='9370DB'>军兰</option>"
Response.Write "<option value='FF00FF'>紫红</option>"
Response.Write "<option value='7CFC00'>草绿</option>"
Response.Write "<option value='FFB6C1'>粉红</option>"
Response.Write "<option value='000000'>黑色</option>"
Response.Write "<option value='FF0000'>红色</option>"
Response.Write "<option value='00FF00'>绿色</option>"
Response.Write "<option value='0000FF'>蓝色</option>"
Response.Write "<option value='E6E6FA'>淡紫</option>"
Response.Write "<option value='F0E68C'>黄褐</option>"
Response.Write "<option value='CD853F'>秘鲁</option>"
Response.Write "</select><br/>"
Response.Write "=锐利魔鬼=<br/>"
Response.Write "<select name='bhafeh'>"
Response.Write "<option value='1'>关闭</option>"
Response.Write "<option value='2'>开启</option>"
Response.Write "</select>"
Response.Write "<input format='*N' name='bhafei' value='101' size='5'/>值<br/>"
Response.Write "图翻转<select name='rota' value='a'>"
Response.Write "<option value='a'>正常</option>"
Response.Write "<option value='b'>左右翻</option>"
Response.Write "<option value='c'>上下翻</option>"
Response.Write "<option value='d'>左90度</option>"
Response.Write "<option value='e'>右90度</option>"
Response.Write "</select><br/>"
Response.Write "=图片质量=<br/>"
Response.Write "<select name='bhafezl'>"
Response.Write "<option value='100'>高</option>"
Response.Write "<option value='90'>中</option>"
Response.Write "<option value='75'>低</option>"
Response.Write "</select><br/>"
Response.Write "框厚度<input format='*N' name='bhafev' value='2' size='5'/><br/>"
if v=0 then
	If len(ufpurl)<1 Then
Response.Write "<anchor title='Submit'>[-编辑下载-]<go href='" & Replace(Request.Servervariables("Http_Url"),"&","&amp;") & "' method='post'>"
Response.Write "<postfield name='ufpurl' value='" & ufp & ".jpg'/>"
	Else
Response.Write "<anchor title='Submit'>[-继续编辑-]<go href='" & Replace(Request.Servervariables("Http_Url"),"&","&amp;") & "' method='post'>"
Response.Write "<postfield name='ufpurl' value='Temp/" & ufpname & ".jpg'/>"
	End If
Response.Write "<postfield name='username' value='" & username & "'/>"
Response.Write "<postfield name='kHeight' value='$(kHeight)'/>"
Response.Write "<postfield name='kWidtH' value='$(kWidtH)'/>"
Response.Write "<postfield name='bkcolr' value='$(bkcolr)'/>"
Response.Write "<postfield name='rota' value='$(rota)'/>"
Response.Write "<postfield name='sjbl' value='$(sjbl)'/>"
Response.Write "<postfield name='bhafeh' value='$(bhafeh)'/>"
Response.Write "<postfield name='bhafei' value='$(bhafei)'/>"
Response.Write "<postfield name='bhafezl' value='$(bhafezl)'/>"
Response.Write "<postfield name='bhafeb' value='$(bhafeb)'/>"
Response.Write "<postfield name='bhafed' value='$(bhafed)'/>"
Response.Write "<postfield name='bhafea' value='$(bhafea)'/>"
Response.Write "<postfield name='bhafec' value='$(bhafec)'/>"
Response.Write "<postfield name='bhafev' value='$(bhafev)'/>"
Response.Write "</go></anchor><br/>"
else
Response.Write "<input type=hidden name='username' value='" & username & "'/>"
	If len(ufpurl)<1 Then
Response.Write "<input type=hidden name='ufpurl' value='" & ufp & ".jpg'/>"
Response.Write "<input type='submit' value='编辑下载'/></form><br/>"        
	Else
Response.Write "<input type=hidden name='ufpurl' value='Temp/" & ufpname & ".jpg'/>"
Response.Write "<input type='submit' value='继续编辑'/></form><br/>"
	End If
End If
		End If	'年龄判断结束段
	ElseIf  request("lx")<>"" Then
Response.Write we1
Response.Write we
	set fso = server.createobject("scripting.filesystemobject")
		If fso.fileexists(server.mappath("image\" & lx & ".jpg")) = False Then
		Response.Write "证件图片打开失败,请检查选择的类型是否正确！<br/>"
	If instr(Curl,Request.ServerVariables("Server_NAME"))>0 Then
	Response.Write "<a href='" & filename1 & "?sid=" & sidd & "'>重新选择证件类型</a><br/>"
	Else
	Response.Write "<a href='" & filename1 & "?sid=" & sidd & "&amp;Curl=" & Curl & "'>重新选择证件类型</a><br/>"
	End If
		Response.End()
		End If
	If lx="0000" Then
	set J=server.createobject("Persits.Jpeg")
		J.open server.mappath("image/" & lx & ".jpg")
		J.WidtH=J.OriginalWidtH / 4
		J.Height=J.OriginalHeight / 4
		J.save server.mappath("_PalbTN/" & lx & ".jpg")
		J.Close
		set J=Nothing
	End If
		Response.Write "<img src='_PalbTN/" & lx & ".jpg' alt='缩略预览，qt3g.com'/><br/>"
		End If
if v=1 then Response.Write "<form action='" & Replace(Request.Servervariables("Http_Url"),"&","&amp;") & "' method='post'>"
%>
<%If lx="jiehun" Or lx="lihun" Then%>
老公姓名<br/>
<input name='text1' type='text' value='' maxlength='4'/><br/>
老公年龄<br/>
<input name='age' type='text' value='' maxlength='2' format='*N'/><br/>
老婆姓名<br/>
<input name='text2' type='text' value='' maxlength='4'/><br/>
老婆年龄<br/>
<input name='age1' type='text' value='' maxlength='2' format='*N'/><br/>
<%Else%>
输入姓名<br/>
<input name='username' type='text' value='' maxlength='4'/><br/>
选择性别<br/>
<select name='sex'>
<option value='男'>男</option>
<option value='女'>女</option>
</select><br/>
输入年龄<br/>
<input name='age' type='text' value='' maxlength='2' format='*N'/><br/>
<%End If%>
<%
if v=0 then
Response.Write "<anchor title='Submit'>提交制作<go href='" & Replace(Request.Servervariables("Http_Url"),"&","&amp;") & "' method='post'>"
Response.Write "<postfield name='age' value='$(age)'/>"
If lx="jiehun" Or lx="lihun" Then
Response.Write "<postfield name='username' value='$(text1)'/>"
Response.Write "<postfield name='username2' value='$(text2)'/>"
Response.Write "<postfield name='age2' value='$(age1)'/>"
Response.Write "<postfield name='sex' value='男'/>"
Response.Write "<postfield name='sex2' value='女'/>"
Response.Write "<postfield name='upfile2' value='" & upfile2 & "'/>"
Else
Response.Write "<postfield name='username' value='$(username)'/>"
Response.Write "<postfield name='sex' value='$(sex)'/>"
End If
Response.Write "<postfield name='upfile1' value='" & upfile1 & "'/></go></anchor>."
else
If lx="jiehun" Or lx="lihun" Then
Response.Write "<input type=hidden name='sex' value='男'/>"
Response.Write "<input type=hidden name='sex2' value='女'/>"
Response.Write "<input type=hidden name='upfile2' value='" & upfile2 & "'/>"
end if
Response.Write "<input type=hidden name='upfile1' value='" & upfile1 & "'/>"
Response.Write "<input type='submit' value='提交制作'/></form><br/>"
End If
If instr(Curl,Request.ServerVariables("Server_NAME"))>0 Then
Response.Write "<a href='" & filename1 & "?sid=" & sidd & "'>重选类型</a><br/>"
Else
Response.Write "<a href='" & filename1 & "?sid=" & sidd & "&amp;Curl=" & Curl & "'>重选类型</a><br/>"
End If
Response.Write we1
End If
%>
<%=we%>快告诉你的朋友来这里玩玩吧,古话说的好,独乐乐不如众乐乐.<%=we0%>
<%=sou%><a href='index.asp?sid=<%=sidd%>'>返回制作首页</a><%=we0%>
<%
End function
function RndCode()
dim CodeSet,AmountSet,i
CodeSet = "ABCDEFGHIJKLMNOPQRSTUVWXYZabcdefghijklmnopqrstuvwxyz"
AmountSet = 52		'以上数字字母的数量
Randomize
'以下随机产生字符
Dim vCode(7), vCodes
For i = 0 To 4
  vCode(i) = Int(Rnd * AmountSet)
  vCodes = vCodes & Mid(CodeSet, vCode(i) + 1, 1)
Next
RndCode=vCodes
End function
%>